home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / dwarfx / dwarf24.lha / dwarfcopy.amirx < prev    next >
Text File  |  1980-12-25  |  1KB  |  6 lines
  1. /* DWaRFCoPY.AmIRX - Created by Satan and revamped By GåZ Murfin....Allowed for use and adaption by Stuart Tuck.....*/
  2.  
  3. /* Compressed with CompressRexx v2.1, (C) 1993-96 Robert Hofmann */
  4. options results;host=address();ADDRESS VALUE host;'getmynick';mynick=upper(result);'getchannel';chan=result;Call Setclip('DFxTIME',Time());''echo '« DWaRFCoPY initiated »';''say 'DWaRFCoPY innitiated. Similar nick changes are futile.. - |DWaRFx|';Do Forever; drop rest; drop dest; 'getline'; address command 'wait 5'; drop users; drop nicks; drop num; 'getusers'; users=result; call COPYCAT users;End;Exit;;COPYCAT:;ARG users; nicks=words(users); users=translate(users,"","@"); Do I=1 to nicks; usersnick=upper(word(users,i)); num=index(word(upper(users),i),mynick); If usersnick~=mynick then do; If num>0 then do; ''say 'DWaRFCoPY - Detected Nick Clash. - Taking appropriate action.'; ''say '/deop 'usersnick; ''say '/op GåZ'; ''say '/kick 'chan' 'usersnick' Destroyed by DWaRFCoPY - Gareth Murfin aka GåZ'; End; End; End;return usersnick
  5. /* Original script: 3 lines, 1061 bytes */
  6.